home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / lem.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-02-22  |  5.9 KB  |  217 lines
  1. 10      CLS:KEY OFF:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  2. 20            PRINT "          L    U    N    A    R"
  3. 30      PRINT
  4. 40      PRINT "                    L    A    N    D    E    R"
  5. 50      PRINT:PRINT
  6. 60      PRINT TAB(25);"LUNAR LANDING SIMULATION"
  7. 70      PRINT CHR$(7)
  8. 80      PRINT TAB(15);"-------HOUSTON CALLING LUNAR MODULE-------"
  9. 90      PRINT TAB(15);
  10. 100     PRINT TAB(15);"YOU MAY SET THE FUEL RATE (K) TO ZERO OR ANY VALUE"
  11. 110     PRINT TAB(15);"BETWEEN 8 AND 200 LBS PER SECOND.  A NEGATIVE FUEL"
  12. 120     PRINT TAB(15);"RATE WILL ABORT THE MISSION."
  13. 130     PRINT
  14. 140     PRINT TAB(15);"YOU HAVE 16000 LBS OF FUEL."
  15. 150     PRINT TAB(15);"ESTIMATED FREE FALL IMPACT TIME IS 120 SECONDS."
  16. 160     PRINT TAB(15);"CAPSULE WEIGHT IS 32,500 LBS."
  17. 170     PRINT
  18. 180     PRINT TAB(20);"FIRST RADAR CHECK COMING UP..."
  19. 190     PRINT TAB(20);"BEGIN LANDING PROCEDURE" :PRINT:PRINT
  20. 200     PRINT "TIME(SECS)","HEIGHT(MI)","VELOCITY(MPH)","FUEL(LBS)","FUEL RATE"
  21. 210     LET L=0:LET A=120:LET V=1:LET M=32500:LET N=16500
  22. 220     LET G=0.000999999:LET Z=1.8
  23. 230       PRINT INT(L+0.5),A,V*3600,M-N,"K  ";
  24. 240    INPUT K
  25. 250    LET T=10
  26. 260    IF K<0 THEN GOTO 630
  27. 270    IF K=0 THEN GOTO 320
  28. 280    IF K<8 THEN 300
  29. 290    IF K<=200 THEN GOTO 320
  30. 300    PRINT TAB(9);"INVALID BURN RATE - RETRY";TAB(57);"K  ";
  31. 310    INPUT K:  GOTO 260
  32. 320    IF M-N-0.000999999 <0 THEN GOTO 440
  33. 330    IF T<0.000999999 THEN GOTO 230
  34. 340    S=T
  35. 350    IF N +S*K <=M THEN GOTO 370
  36. 360    S=(M-N) /K
  37. 370    I0 =1
  38. 380    GOTO 900
  39. 390    IF I <=0 THEN GOTO 720
  40. 400    IF V <=0 THEN GOTO 420
  41. 410    IF J <0 THEN GOTO 780
  42. 420    I0=1
  43. 430    GOTO 690
  44. 440    REM
  45. 450    PRINT
  46. 460    PRINT "FUEL OUT AT " ;L;" SECS"
  47. 470    S=(-V+SQR(V*V+2*A*G))/G
  48. 480    V =V+G*S
  49. 490    L=L+S
  50. 500    REM
  51. 510    PRINT
  52. 520    PRINT TAB(10);"----------- 'THE EAGLE HAS LANDED!' -----------"
  53. 530    PRINT
  54. 540    PRINT TAB(10);"ON THE MOON AT ";L;" SECS"
  55. 550    W=3600*V
  56. 560    PRINT TAB(10);"IMPACT VELOCITY OF ";W;" MPH"
  57. 570    PRINT TAB(10);"FUEL LEFT "; M-N;" LBS"
  58. 580  IF W>=60 THEN GOSUB 1080 :  GOTO 630
  59. 590  IF W>=25 THEN WWW=INT((W/5))-4 : GOSUB 2140 : GOTO 630
  60. 600  ON INT(W+0.5)+1 GOSUB 1340,1400,1440,1470,1500,1530,1560,1590,1620,1650,1680,1710,1740,1770,1800,1830,1860,1890,1920,1950,1980,2010,2040,2070,2100,2100
  61. 610      GOTO 630
  62. 620      PRINT "<ON> STMT ERROR"
  63. 630      REM
  64. 640    PRINT TAB(20);"TRY AGAIN?  (Y OR N)  ";
  65. 650   INPUT R$
  66. 660    IF LEFT$(R$,1)="Y" THEN GOTO 170
  67. 670    IF LEFT$(R$,1)<>"N" THEN:PRINT TAB(20);"HOUSTON:  'I DIDN'T COPY.  REPEAT'" : GOTO 630
  68. 680    PRINT:PRINT:PRINT TAB(10);"THIS IS HOUSTON SIGNING OFF":END
  69. 690    L=L+S:T=T-S:M=M-S*K:A=I:V=J
  70. 700    IF I0=1 THEN GOTO 320
  71. 710    IF I0=3 THEN GOTO 870
  72. 720    IF S<0.005 THEN GOTO 500
  73. 730  TEMP1=(G-Z*K/M)
  74. 740  TEMP=V*V+2*A*(TEMP1)
  75. 750  S=2*A/(V+SQR(TEMP))
  76. 760    I0=2
  77. 770    GOTO 900
  78. 780    W=(1-M*G/(Z*K))/2
  79. 790  TEMP1=(W*W+V/Z)
  80. 800  TEMPT=(W+SQR(TEMP1))
  81. 810  TEMPT2=(Z*K*(TEMPT))
  82. 820  S=M*V/TEMPT2+0.05
  83. 830    I0=3
  84. 840    GOTO 900
  85. 850    IF I<=0 THEN GOTO 720
  86. 860    GOTO 690
  87. 870    IF J>=0 THEN GOTO 320
  88. 880    IF V<=0 THEN GOTO 320
  89. 890    GOTO 780
  90. 900    Q=S*K/M
  91. 910    IF Q<=0 THEN GOTO 1050
  92. 920  TEMP=(1/4+Q*(1/5))
  93. 930  TEMP1=(1/3+Q*(TEMP))
  94. 940  TEMP2=(1/2+Q*(TEMP1))
  95. 950  TEMP3=(1+Q*(TEMP2))
  96. 960  J=V+G*S+Z*(-Q*(TEMP3))
  97. 970  TEMP=(1/20 +Q*(1/30))
  98. 980  TEMP1=(1/6+Q*(1/12+Q*TEMP))
  99. 990  TEMP2=(1/2+Q*(TEMP1))
  100. 1000  TEMP3=(Q*(TEMP2))
  101. 1010  I=A-G*S*S/2-V*S+Z*S*(TEMP3)
  102. 1020    IF I0=1 THEN GOTO 390
  103. 1030    IF I0=2 THEN GOTO 690
  104. 1040     IF I0=3 THEN GOTO 850
  105. 1050    J=V+G*S
  106. 1060   I=A-G*S*S/2-V*S
  107. 1070   GOTO 1020
  108. 1080     REM-----  W>=60-----
  109. 1090     PRINT TAB(10);"SORRY, THERE WERE NO SURVIVORS"
  110. 1100     PRINT TAB(10);"IN FACT, YOU BLASTED A NEW LUNAR CRATER ";
  111. 1110     PRINT W*0.277777;" FEET DEEP!"
  112. 1120     RETURN
  113. 1130     REM----- 25<=W<30
  114. 1140     PRINT TAB(10);"UNSAFE LANDING WITH MINOR CRAFT DAMAGE"
  115. 1150     RETURN
  116. 1160     REM----- 30<=W<35
  117. 1170     PRINT TAB(10);"LANDING GEAR DAMAGED"
  118. 1180     RETURN
  119. 1190     REM----- 35<=W<40
  120. 1200     PRINT TAB(10);"DAMAGE SIGNIFICANT. UNABLE TO TAKE OFF"
  121. 1210     RETURN
  122. 1220     REM----- 40<=W<45
  123. 1230     PRINT TAB(10);"MAJOR DAMAGE.  CREW INJURED."
  124. 1240     RETURN
  125. 1250     REM----- 45<=W<50
  126. 1260     PRINT TAB(10);"IMPACT SEVERE.  CRAFT DESTROYED."
  127. 1270     RETURN
  128. 1280     REM----- 50<=W<55
  129. 1290     PRINT TAB(10);"LANDING CRAFT DISINTEGRATED ON IMPACT."
  130. 1300     RETURN
  131. 1310     REM----- 55<=W<60
  132. 1320     PRINT TAB(10);"TOTAL LOSS"
  133. 1330     RETURN
  134. 1340     REM----- 0<=W<.5
  135. 1350     PRINT CHR$(7);TAB(10);"----------------------------------------"
  136. 1360     PRINT TAB(10);"     P   E   R   F   E   C   T   !"
  137. 1370     PRINT CHR$(7);TAB(10);"----------------------------------------"
  138. 1380     PRINT
  139. 1390     RETURN
  140. 1400     REM----- .5<=W<1.5
  141. 1410     PRINT TAB(10);"G R E A T       L A N D I N G"
  142. 1420     PRINT
  143. 1430     RETURN
  144. 1440     REM----- 1.5<=W<2.5
  145. 1450     PRINT TAB(10);"EXCELLENT LANDING, CAPTAIN"
  146. 1460     RETURN
  147. 1470     REM----- 2.5<=W<3.5
  148. 1480     PRINT TAB(10);"ONE OF THE BEST LANDINGS I'VE SEEN"
  149. 1490     RETURN
  150. 1500     REM----- 3.5<=W<4.5
  151. 1510     PRINT TAB(10);"VERY GOOD, SIR.  ALMOST THERE"
  152. 1520     RETURN
  153. 1530     REM----- 4.5<=W<5.5
  154. 1540     PRINT TAB(10);"GOOD LANDING"
  155. 1550     RETURN
  156. 1560     REM----- 5.5<=W<6.5
  157. 1570     PRINT TAB(10);"SOFT LANDING"
  158. 1580     RETURN
  159. 1590     REM----- 6.5<=W<7.5
  160. 1600     PRINT TAB(10);"SOFT LANDING BUT THE CREW IS SHAKEN"
  161. 1610     RETURN
  162. 1620     REM----- 7.5<=W<8.5
  163. 1630     PRINT TAB(10);"OK LANDING BUT HOUSTON IS COMPLAINING"
  164. 1640     RETURN
  165. 1650     REM----- 8.5<=W<9.5
  166. 1660     PRINT TAB(10);"FENDER BENDER"
  167. 1670     RETURN
  168. 1680     REM----- 9.5<=W<10.5
  169. 1690     PRINT TAB(10);"ARE YOUR HANDS SWEATING?"
  170. 1700     RETURN
  171. 1710     REM----- 10.5<=W<11.5
  172. 1720     PRINT TAB(10);"WHEW. . .  THAT WAS CLOSE!"
  173. 1730     RETURN
  174. 1740     REM----- 11.5<=W<12.5
  175. 1750     PRINT TAB(10);"GETTING BETTER"
  176. 1760     RETURN
  177. 1770     REM----- 12.5<=W<13.5
  178. 1780     PRINT TAB(10);"IMPACT VELOCITY APPROACHING SAFETY LIMITS"
  179. 1790     RETURN
  180. 1800     REM----- 13.5<=W<14.5
  181. 1810     PRINT TAB(10);"NEIL ARMSTRONG COULD DO BETTER"
  182. 1820     RETURN
  183. 1830     REM----- 14.5<=W<15.5
  184. 1840     PRINT TAB(10);"ANY FASTER AND THE PRESIDENT WON'T TELEPHONE YOU"
  185. 1850     RETURN
  186. 1860     REM----- 15.5<=W<16.5
  187. 1870     PRINT TAB(10);"HOUSTON: 'ARE YOU ALL RIGHT UP THERE?!?'"
  188. 1880     RETURN
  189. 1890     REM----- 16.5<=W<17.5
  190. 1900     PRINT TAB(10);"AT LEAST YOU MADE IT"
  191. 1910     RETURN
  192. 1920     REM----- 17.5<=W<18.5
  193. 1930     PRINT TAB(10);"WELL, THAT'S BETTER THAN THE RUSSIANS DID"
  194. 1940     RETURN
  195. 1950     REM----- 18.5<=W<19.5
  196. 1960     PRINT TAB(10);"POSSIBLE DAMAGE TO CRAFT"
  197. 1970     RETURN
  198. 1980     REM----- 19.5<=W<20.5
  199. 1990     PRINT TAB(10);"HOUSTON IS REVOKING YOUR PILOTS LICENSE"
  200. 2000     RETURN
  201. 2010     REM----- 20.5<=W<21.5
  202. 2020     PRINT TAB(10);"AFTER THAT IMPACT, THE LANDER WILL NEED AN OVERHAUL!"
  203. 2030     RETURN
  204. 2040     REM----- 21.5<=W<22.5
  205. 2050     PRINT TAB(10);"SCIENTIFIC PAYLOAD PACKAGE DAMAGED"
  206. 2060     RETURN
  207. 2070     REM----- 22.5<=W<23.5
  208. 2080     PRINT TAB(10);"EXTERNAL ANTENNA DID NOT SURVIVE THE IMPACT"
  209. 2090     RETURN
  210. 2100     REM----- 23.5<=W<24.5
  211. 2110     PRINT TAB(10);"EVA WILL REVEAL DAMAGE TO LANDING GEAR"
  212. 2120     RETURN
  213. 2130     PRINT:PRINT
  214. 2140     REM-----ON GOSUB
  215. 2150     ON WWW GOSUB 1130,1160,1190,1220,1250,1280,1310
  216. 2160     RETURN
  217.